<?php
/* 
 * ********* CVS HEADER ********* 
 * 
 * $RCSfile: admenvboxsupp.php,v $ 
 * $Date: 2007/07/30 21:16:46 $ 
 * $Revision: 1.3 $ 
 * 
 * ********* CVS HEADER ********* 
 */
if (!isset($envid)) {
	rportalerreur("Aucun environnement en param&egrave;tre !","?op=admenvliste");
}
require_once(get_path_module("environnement.environnement"));
$query="SELECT * FROM environnement WHERE id='$envid'";
$result=rportalrequete($query) or die ("ERREUR: $query<br />");
if($environnement=rportalligne($result)){
    $env=new environnement;
    $env=restaure_environnement($environnement['environnement']);
    if(isset($argid)){
        $env->delbox($argid);   
    }
    $modif = $environnement['modification'];
	$modif = "Suppression d'un box.\n" . $modif;
    $query="UPDATE environnement SET environnement='".$env->serialize()."',lastmod=NOW(),modification='".addslashes($modif)."' WHERE id='$envid'";
    @rportalrequete($query) or die ("ERREUR: $query<br />");	
}
header("Location: ?op=admenvmod&argid=$envid");
exit;
?>
